home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •The Casino• / •Las Vegas• / MacBandit 1.1 •••• / MacBandit 1.1 ееее.rsrc / CODE_4.txt < prev    next >
Text File  |  1990-10-09  |  19KB  |  329 lines
  1. # near model CODE resource
  2. # jump table entries: 344-346 (3 of them)
  3. fn00000000:
  4. 00000000  4E56 FFF0                link       A6, -0x0010
  5. 00000004  2F0C                     move.l     -[A7], A4
  6. 00000006  486E FFF8                pea.l      [A6 - 0x8]
  7. 0000000A  3F3C 0115                move.w     -[A7], 0x115
  8. 0000000E  3F3C 0046                move.w     -[A7], 0x46 /* 'F' */
  9. 00000012  3F3C 0138                move.w     -[A7], 0x138
  10. 00000016  3F3C 00B5                move.w     -[A7], 0xB5
  11. 0000001A  A8A7                     syscall    SetRect
  12. 0000001C  486E FFF8                pea.l      [A6 - 0x8]
  13. 00000020  A87B                     syscall    ClipRect
  14. 00000022  486E FFF8                pea.l      [A6 - 0x8]
  15. 00000026  486D FA82                pea.l      [A5 - 0x57E]
  16. 0000002A  A8A5                     syscall    FillRect
  17. 0000002C  486E FFF0                pea.l      [A6 - 0x10]
  18. 00000030  3F3C 0021                move.w     -[A7], 0x21 /* '!' */
  19. 00000034  3F3C 00EC                move.w     -[A7], 0xEC
  20. 00000038  3F3C 0090                move.w     -[A7], 0x90
  21. 0000003C  3F3C 0101                move.w     -[A7], 0x101
  22. 00000040  A8A7                     syscall    SetRect
  23. 00000042  99CC                     sub.l      A4, A4
  24. 00000044  42A7                     clr.l      -[A7]
  25. 00000046  3F3C 0087                move.w     -[A7], 0x87
  26. 0000004A  A9BC                     syscall    GetPicture
  27. 0000004C  205F                     movea.l    A0, [A7]+
  28. 0000004E  2848                     movea.l    A4, A0
  29. 00000050  2F0C                     move.l     -[A7], A4
  30. 00000052  A992                     syscall    DetachResource
  31. 00000054  2F0C                     move.l     -[A7], A4
  32. 00000056  4EAD 00D2                jsr        [A5 + 0xD2 /* export_22 */]
  33. 0000005A  486E FFF0                pea.l      [A6 - 0x10]
  34. 0000005E  A87B                     syscall    ClipRect
  35. 00000060  486E FFF0                pea.l      [A6 - 0x10]
  36. 00000064  A8A3                     syscall    EraseRect
  37. 00000066  2F0C                     move.l     -[A7], A4
  38. 00000068  486E FFF0                pea.l      [A6 - 0x10]
  39. 0000006C  A8F6                     syscall    DrawPicture
  40. 0000006E  2F0C                     move.l     -[A7], A4
  41. 00000070  4EAD 00CA                jsr        [A5 + 0xCA /* export_21 */]
  42. 00000074  2F0C                     move.l     -[A7], A4
  43. 00000076  4EAD 00AA                jsr        [A5 + 0xAA /* export_17 */]
  44. 0000007A  285F                     movea.l    A4, [A7]+
  45. 0000007C  4E5E                     unlink     A6
  46. 0000007E  4E75                     rts
  47. export_43:
  48. 00000080  4E56 FFD8                link       A6, -0x0028
  49. 00000084  48E7 0108                movem.l    -[A7], D7,A4
  50. 00000088  286E 0010                movea.l    A4, [A6 + 0x10]
  51. 0000008C  3D6C 0002 FFFE           move.w     [A6 - 0x2], [A4 + 0x2]
  52. 00000092  3D6C 0004 FFFC           move.w     [A6 - 0x4], [A4 + 0x4]
  53. 00000098  486E FFFC                pea.l      [A6 - 0x4]
  54. 0000009C  A870                     syscall    LocalToGlobal
  55. 0000009E  302E FFFC                move.w     D0, [A6 - 0x4]
  56. 000000A2  B06D FA22                cmp.w      D0, [A5 - 0x5DE]
  57. 000000A6  6E0A                     bgt        +0xC /* 000000B2 */
  58. 000000A8  302E FFFE                move.w     D0, [A6 - 0x2]
  59. 000000AC  B06D FA20                cmp.w      D0, [A5 - 0x5E0]
  60. 000000B0  6C06                     bge        +0x8 /* 000000B8 */
  61. label000000B2:
  62. 000000B2  7000                     moveq.l    D0, 0x00
  63. 000000B4  6000 024A                bra        +0x24C /* 00000300 */
  64. label000000B8:
  65. 000000B8  206E 0008                movea.l    A0, [A6 + 0x8]
  66. 000000BC  3D68 0002 FFFE           move.w     [A6 - 0x2], [A0 + 0x2]
  67. 000000C2  206E 0008                movea.l    A0, [A6 + 0x8]
  68. 000000C6  3D50 FFFC                move.w     [A6 - 0x4], [A0]
  69. 000000CA  2D6E FFFC FFF8           move.l     [A6 - 0x8], [A6 - 0x4]
  70. 000000D0  206E 000C                movea.l    A0, [A6 + 0xC]
  71. 000000D4  43EE FFE0                lea.l      A1, [A6 - 0x20]
  72. 000000D8  22D8                     move.l     [A1]+, [A0]+
  73. 000000DA  22D8                     move.l     [A1]+, [A0]+
  74. 000000DC  206E 000C                movea.l    A0, [A6 + 0xC]
  75. 000000E0  3D50 FFF0                move.w     [A6 - 0x10], [A0]
  76. 000000E4  206E 000C                movea.l    A0, [A6 + 0xC]
  77. 000000E8  3D68 0002 FFF2           move.w     [A6 - 0xE], [A0 + 0x2]
  78. 000000EE  206E 000C                movea.l    A0, [A6 + 0xC]
  79. 000000F2  3D68 0006 FFF6           move.w     [A6 - 0xA], [A0 + 0x6]
  80. 000000F8  3D7C 0190 FFF4           move.w     [A6 - 0xC], 0x190
  81. 000000FE  486E FFF0                pea.l      [A6 - 0x10]
  82. 00000102  A87B                     syscall    ClipRect
  83. 00000104  41EE FFE8                lea.l      A0, [A6 - 0x18]
  84. 00000108  43EE FFF0                lea.l      A1, [A6 - 0x10]
  85. 0000010C  20D9                     move.l     [A0]+, [A1]+
  86. 0000010E  20D9                     move.l     [A0]+, [A1]+
  87. 00000110  206E 000C                movea.l    A0, [A6 + 0xC]
  88. 00000114  3028 0004                move.w     D0, [A0 + 0x4]
  89. 00000118  5840                     addq.w     D0, 4
  90. 0000011A  3D40 FFE8                move.w     [A6 - 0x18], D0
  91. 0000011E  066E 0012 FFEA           addi.w     [A6 - 0x16], 0x12
  92. 00000124  066E FFED FFEE           addi.w     [A6 - 0x12], 0xFFED
  93. 0000012A  41EE FFD8                lea.l      A0, [A6 - 0x28]
  94. 0000012E  43EE FFE8                lea.l      A1, [A6 - 0x18]
  95. 00000132  20D9                     move.l     [A0]+, [A1]+
  96. 00000134  20D9                     move.l     [A0]+, [A1]+
  97. 00000136  206E 000C                movea.l    A0, [A6 + 0xC]
  98. 0000013A  3D68 0004 FFF4           move.w     [A6 - 0xC], [A0 + 0x4]
  99. 00000140  7E00                     moveq.l    D7, 0x00
  100. label00000142:
  101. 00000142  486E FFF8                pea.l      [A6 - 0x8]
  102. 00000146  A972                     syscall    GetMouse
  103. 00000148  206E 0008                movea.l    A0, [A6 + 0x8]
  104. 0000014C  302E FFF8                move.w     D0, [A6 - 0x8]
  105. 00000150  B050                     cmp.w      D0, [A0]
  106. 00000152  6C0A                     bge        +0xC /* 0000015E */
  107. 00000154  206E 0008                movea.l    A0, [A6 + 0x8]
  108. 00000158  3D50 FFF8                move.w     [A6 - 0x8], [A0]
  109. 0000015C  600E                     bra        +0x10 /* 0000016C */
  110. label0000015E:
  111. 0000015E  0C6E 00E1 FFF8           cmpi.w     [A6 - 0x8], 0xE1
  112. 00000164  6F06                     ble        +0x8 /* 0000016C */
  113. 00000166  3D7C 00E1 FFF8           move.w     [A6 - 0x8], 0xE1
  114. label0000016C:
  115. 0000016C  302E FFF8                move.w     D0, [A6 - 0x8]
  116. 00000170  B06E FFFC                cmp.w      D0, [A6 - 0x4]
  117. 00000174  6700 010E                beq        +0x110 /* 00000284 */
  118. 00000178  206E 0008                movea.l    A0, [A6 + 0x8]
  119. 0000017C  302E FFF8                move.w     D0, [A6 - 0x8]
  120. 00000180  9050                     sub.w      D0, [A0]
  121. 00000182  3E00                     move.w     D7, D0
  122. 00000184  506E FFF4                addq.w     [A6 - 0xC], 8
  123. 00000188  486E FFF0                pea.l      [A6 - 0x10]
  124. 0000018C  486D FA82                pea.l      [A5 - 0x57E]
  125. 00000190  A8A5                     syscall    FillRect
  126. 00000192  206E 000C                movea.l    A0, [A6 + 0xC]
  127. 00000196  3010                     move.w     D0, [A0]
  128. 00000198  D047                     add.w      D0, D7
  129. 0000019A  3D40 FFF0                move.w     [A6 - 0x10], D0
  130. 0000019E  206E 000C                movea.l    A0, [A6 + 0xC]
  131. 000001A2  3028 0004                move.w     D0, [A0 + 0x4]
  132. 000001A6  D047                     add.w      D0, D7
  133. 000001A8  3D40 FFF4                move.w     [A6 - 0xC], D0
  134. 000001AC  486D FA8A                pea.l      [A5 - 0x576]
  135. 000001B0  A89D                     syscall    PenPat
  136. 000001B2  486E FFF0                pea.l      [A6 - 0x10]
  137. 000001B6  A8B7                     syscall    FrameOval
  138. 000001B8  486D FA82                pea.l      [A5 - 0x57E]
  139. 000001BC  A89D                     syscall    PenPat
  140. 000001BE  302E FFF0                move.w     D0, [A6 - 0x10]
  141. 000001C2  5340                     subq.w     D0, 1
  142. 000001C4  3D40 FFE4                move.w     [A6 - 0x1C], D0
  143. 000001C8  486E FFE0                pea.l      [A6 - 0x20]
  144. 000001CC  486D FA82                pea.l      [A5 - 0x57E]
  145. 000001D0  A8A5                     syscall    FillRect
  146. 000001D2  302E FFF4                move.w     D0, [A6 - 0xC]
  147. 000001D6  5840                     addq.w     D0, 4
  148. 000001D8  3D40 FFE8                move.w     [A6 - 0x18], D0
  149. 000001DC  0C47 0010                cmpi.w     D7, 0x10
  150. 000001E0  6C0C                     bge        +0xE /* 000001EE */
  151. 000001E2  486E FFE8                pea.l      [A6 - 0x18]
  152. 000001E6  486D FA8A                pea.l      [A5 - 0x576]
  153. 000001EA  A8A5                     syscall    FillRect
  154. 000001EC  602E                     bra        +0x30 /* 0000021C */
  155. label000001EE:
  156. 000001EE  0C47 0024                cmpi.w     D7, 0x24 /* '$' */
  157. 000001F2  6C0C                     bge        +0xE /* 00000200 */
  158. 000001F4  486E FFE8                pea.l      [A6 - 0x18]
  159. 000001F8  486D FA72                pea.l      [A5 - 0x58E]
  160. 000001FC  A8A5                     syscall    FillRect
  161. 000001FE  601C                     bra        +0x1E /* 0000021C */
  162. label00000200:
  163. 00000200  0C47 0042                cmpi.w     D7, 0x42 /* 'B' */
  164. 00000204  6C0C                     bge        +0xE /* 00000212 */
  165. 00000206  486E FFE8                pea.l      [A6 - 0x18]
  166. 0000020A  486D FA7A                pea.l      [A5 - 0x586]
  167. 0000020E  A8A5                     syscall    FillRect
  168. 00000210  600A                     bra        +0xC /* 0000021C */
  169. label00000212:
  170. 00000212  486E FFE8                pea.l      [A6 - 0x18]
  171. 00000216  486D FA6A                pea.l      [A5 - 0x596]
  172. 0000021A  A8A5                     syscall    FillRect
  173. label0000021C:
  174. 0000021C  486E FFF0                pea.l      [A6 - 0x10]
  175. 00000220  3F3C 0001                move.w     -[A7], 0x1
  176. 00000224  3F3C 0001                move.w     -[A7], 0x1
  177. 00000228  A8A9                     syscall    InsetRect
  178. 0000022A  486E FFF0                pea.l      [A6 - 0x10]
  179. 0000022E  486D FA82                pea.l      [A5 - 0x57E]
  180. 00000232  A8BB                     syscall    FillOval
  181. 00000234  486E FFF0                pea.l      [A6 - 0x10]
  182. 00000238  3F3C FFFF                move.w     -[A7], 0xFFFF
  183. 0000023C  3F3C FFFF                move.w     -[A7], 0xFFFF
  184. 00000240  A8A9                     syscall    InsetRect
  185. 00000242  3D6E FFF4 FFD8           move.w     [A6 - 0x28], [A6 - 0xC]
  186. 00000248  302E FFD8                move.w     D0, [A6 - 0x28]
  187. 0000024C  5840                     addq.w     D0, 4
  188. 0000024E  3D40 FFDC                move.w     [A6 - 0x24], D0
  189. 00000252  486E FFD8                pea.l      [A6 - 0x28]
  190. 00000256  486D FA82                pea.l      [A5 - 0x57E]
  191. 0000025A  A8A5                     syscall    FillRect
  192. 0000025C  302E FFF0                move.w     D0, [A6 - 0x10]
  193. 00000260  0640 FF9C                addi.w     D0, 0xFF9C
  194. 00000264  3D40 FFD8                move.w     [A6 - 0x28], D0
  195. 00000268  3D6E FFF0 FFDC           move.w     [A6 - 0x24], [A6 - 0x10]
  196. 0000026E  486E FFD8                pea.l      [A6 - 0x28]
  197. 00000272  486D FA82                pea.l      [A5 - 0x57E]
  198. 00000276  A8A5                     syscall    FillRect
  199. 00000278  3D6E FFFA FFFE           move.w     [A6 - 0x2], [A6 - 0x6]
  200. 0000027E  3D6E FFF8 FFFC           move.w     [A6 - 0x4], [A6 - 0x8]
  201. label00000284:
  202. 00000284  4267                     clr.w      -[A7]
  203. 00000286  A973                     syscall    StillDown
  204. 00000288  101F                     move.b     D0, [A7]+
  205. 0000028A  4A00                     tst.b      D0
  206. 0000028C  6600 FEB4                bne        -0x14A /* 00000142 */
  207. 00000290  486E FFF0                pea.l      [A6 - 0x10]
  208. 00000294  486D FA82                pea.l      [A5 - 0x57E]
  209. 00000298  A8A5                     syscall    FillRect
  210. 0000029A  206E 000C                movea.l    A0, [A6 + 0xC]
  211. 0000029E  3028 0004                move.w     D0, [A0 + 0x4]
  212. 000002A2  5840                     addq.w     D0, 4
  213. 000002A4  3D40 FFE8                move.w     [A6 - 0x18], D0
  214. 000002A8  486E FFE8                pea.l      [A6 - 0x18]
  215. 000002AC  A8A3                     syscall    EraseRect
  216. 000002AE  2F2E 000C                move.l     -[A7], [A6 + 0xC]
  217. 000002B2  486D FA82                pea.l      [A5 - 0x57E]
  218. 000002B6  A8A5                     syscall    FillRect
  219. 000002B8  486D FA8A                pea.l      [A5 - 0x576]
  220. 000002BC  A89D                     syscall    PenPat
  221. 000002BE  2F2E 000C                move.l     -[A7], [A6 + 0xC]
  222. 000002C2  A8B7                     syscall    FrameOval
  223. 000002C4  486D FA82                pea.l      [A5 - 0x57E]
  224. 000002C8  A89D                     syscall    PenPat
  225. 000002CA  206E 0008                movea.l    A0, [A6 + 0x8]
  226. 000002CE  302E FFF8                move.w     D0, [A6 - 0x8]
  227. 000002D2  B050                     cmp.w      D0, [A0]
  228. 000002D4  6F28                     ble        +0x2A /* 000002FE */
  229. 000002D6  0C47 000F                cmpi.w     D7, 0xF
  230. 000002DA  6F22                     ble        +0x24 /* 000002FE */
  231. 000002DC  4A6D FFDE                tst.w      [A5 - 0x22]
  232. 000002E0  6704                     beq        +0x6 /* 000002E6 */
  233. 000002E2  4EBA FD1C                jsr        [PC - 0x2E4 /* 00000000 */]
  234. label000002E6:
  235. 000002E6  0C47 0023                cmpi.w     D7, 0x23 /* '#' */
  236. 000002EA  6C04                     bge        +0x6 /* 000002F0 */
  237. 000002EC  7008                     moveq.l    D0, 0x08
  238. 000002EE  6010                     bra        +0x12 /* 00000300 */
  239. label000002F0:
  240. 000002F0  0C47 0041                cmpi.w     D7, 0x41 /* 'A' */
  241. 000002F4  6C04                     bge        +0x6 /* 000002FA */
  242. 000002F6  700C                     moveq.l    D0, 0x0C
  243. 000002F8  6006                     bra        +0x8 /* 00000300 */
  244. label000002FA:
  245. 000002FA  7010                     moveq.l    D0, 0x10
  246. 000002FC  6002                     bra        +0x4 /* 00000300 */
  247. label000002FE:
  248. 000002FE  7000                     moveq.l    D0, 0x00
  249. label00000300:
  250. 00000300  4CDF 1080                movem.l    D7,A4, [A7]+
  251. 00000304  4E5E                     unlink     A6
  252. 00000306  4E75                     rts
  253. export_44:
  254. 00000308  4E56 FFFC                link       A6, -0x0004
  255. 0000030C  206E 0008                movea.l    A0, [A6 + 0x8]
  256. 00000310  4AA8 0008                tst.l      [A0 + 0x8]
  257. 00000314  6744                     beq        +0x46 /* 0000035A */
  258. 00000316  206E 0008                movea.l    A0, [A6 + 0x8]
  259. 0000031A  2068 0008                movea.l    A0, [A0 + 0x8]
  260. 0000031E  2D50 FFFC                move.l     [A6 - 0x4], [A0]
  261. 00000322  206E FFFC                movea.l    A0, [A6 - 0x4]
  262. 00000326  4250                     clr.w      [A0]
  263. 00000328  206E 0008                movea.l    A0, [A6 + 0x8]
  264. 0000032C  3028 0002                move.w     D0, [A0 + 0x2]
  265. 00000330  E140                     asl        D0.w, 8
  266. 00000332  42A7                     clr.l      -[A7]
  267. 00000334  206E 0008                movea.l    A0, [A6 + 0x8]
  268. 00000338  3F10                     move.w     -[A7], [A0]
  269. 0000033A  3F00                     move.w     -[A7], D0
  270. 0000033C  A869                     syscall    FixRatio
  271. 0000033E  201F                     move.l     D0, [A7]+
  272. 00000340  206E FFFC                movea.l    A0, [A6 - 0x4]
  273. 00000344  2140 0002                move.l     [A0 + 0x2], D0
  274. 00000348  2F2E FFFC                move.l     -[A7], [A6 - 0x4]
  275. 0000034C  206E 0008                movea.l    A0, [A6 + 0x8]
  276. 00000350  2F28 0004                move.l     -[A7], [A0 + 0x4]
  277. 00000354  42A7                     clr.l      -[A7]
  278. 00000356  4EAD 00FA                jsr        [A5 + 0xFA /* export_27 */]
  279. label0000035A:
  280. 0000035A  4E5E                     unlink     A6
  281. 0000035C  4E75                     rts
  282. export_45:
  283. 0000035E  4E56 0000                link       A6, 0
  284. 00000362  42A7                     clr.l      -[A7]
  285. 00000364  4879 7761 7665           push.l     0x77617665 /* 'wave' */
  286. 0000036A  3F2E 0008                move.w     -[A7], [A6 + 0x8]
  287. 0000036E  A9A0                     syscall    GetResource
  288. 00000370  205F                     movea.l    A0, [A7]+
  289. 00000372  226E 000A                movea.l    A1, [A6 + 0xA]
  290. 00000376  2348 0008                move.l     [A1 + 0x8], A0
  291. 0000037A  4267                     clr.w      -[A7]
  292. 0000037C  A9AF                     syscall    ResError
  293. 0000037E  301F                     move.w     D0, [A7]+
  294. 00000380  4A40                     tst.w      D0
  295. 00000382  665A                     bne        +0x5C /* 000003DE */
  296. 00000384  206E 000A                movea.l    A0, [A6 + 0xA]
  297. 00000388  2F28 0008                move.l     -[A7], [A0 + 0x8]
  298. 0000038C  A992                     syscall    DetachResource
  299. 0000038E  206E 000A                movea.l    A0, [A6 + 0xA]
  300. 00000392  2F28 0008                move.l     -[A7], [A0 + 0x8]
  301. 00000396  4EAD 00BA                jsr        [A5 + 0xBA /* export_19 */]
  302. 0000039A  206E 000A                movea.l    A0, [A6 + 0xA]
  303. 0000039E  2068 0008                movea.l    A0, [A0 + 0x8]
  304. 000003A2  2F10                     move.l     -[A7], [A0]
  305. 000003A4  2F2E 000A                move.l     -[A7], [A6 + 0xA]
  306. 000003A8  4878 0008                push.l     0x8
  307. 000003AC  4EAD 00DA                jsr        [A5 + 0xDA /* export_23 */]
  308. 000003B0  42A7                     clr.l      -[A7]
  309. 000003B2  206E 000A                movea.l    A0, [A6 + 0xA]
  310. 000003B6  2F28 0008                move.l     -[A7], [A0 + 0x8]
  311. 000003BA  4EAD 00B2                jsr        [A5 + 0xB2 /* export_18 */]
  312. 000003BE  201F                     move.l     D0, [A7]+
  313. 000003C0  206E 000A                movea.l    A0, [A6 + 0xA]
  314. 000003C4  2140 0004                move.l     [A0 + 0x4], D0
  315. 000003C8  206E 000A                movea.l    A0, [A6 + 0xA]
  316. 000003CC  5FA8 0004                subq.l     [A0 + 0x4], 7
  317. 000003D0  206E 000A                movea.l    A0, [A6 + 0xA]
  318. 000003D4  2F28 0008                move.l     -[A7], [A0 + 0x8]
  319. 000003D8  4EAD 00C2                jsr        [A5 + 0xC2 /* export_20 */]
  320. 000003DC  600E                     bra        +0x10 /* 000003EC */
  321. label000003DE:
  322. 000003DE  3F3C 0001                move.w     -[A7], 0x1
  323. 000003E2  A9C8                     syscall    SysBeep
  324. 000003E4  206E 000A                movea.l    A0, [A6 + 0xA]
  325. 000003E8  42A8 0008                clr.l      [A0 + 0x8]
  326. label000003EC:
  327. 000003EC  4E5E                     unlink     A6
  328. 000003EE  4E75                     rts
  329.